home *** CD-ROM | disk | FTP | other *** search
/ Canadian Geographic Explorer / Canadian Geographic Explorer.iso / pc / eo.dxr / 00003.ls < prev    next >
Encoding:
Text File  |  1996-10-03  |  826 b   |  27 lines
  1. global gCurrentLabel, gVoicePlaying, gGizmo
  2.  
  3. on exitFrame
  4.   if not tellLeftBtnState(gGizmo, 1) then
  5.     set jRolloSprite to rollOver()
  6.     case jRolloSprite of
  7.       1:
  8.         showRollOverText(#null)
  9.         set the memberNum of sprite 20 to the number of member "NullSprite"
  10.       13, 14, 15, 16, 17, 18:
  11.         set jRolloCast to the memberNum of sprite jRolloSprite
  12.         showRollOverText(jRolloSprite)
  13.         if the name of member jRolloCast = "Circle" then
  14.           set the memberNum of sprite 20 to jRolloCast + 1
  15.         end if
  16.     end case
  17.   end if
  18.   if gVoicePlaying and not soundBusy(2) then
  19.     if not gizmoOpened(gGizmo) then
  20.       expandGizmo(gGizmo)
  21.     end if
  22.     set gVoicePlaying to 0
  23.     setCompassPict(gGizmo, #on, member (gCurrentLabel & "_LenTxt") of castLib "Internal")
  24.   end if
  25.   go(the frame)
  26. end
  27.